home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DBASE_UT / QUIKDB / DBDEMO.PAS next >
Pascal/Delphi Source File  |  1994-11-18  |  378b  |  21 lines
  1. uses crt,dbpas,dos;
  2. var
  3.   dbf : dbfobj;
  4. begin
  5.   clrscr;
  6.   OpenDB(DBF,'test.dbf');
  7.   DBF^.List;
  8.  
  9.   DBF^.GetXY(10, 8,1,'Name: ','@!');
  10.   DBF^.GetXY(10,10,2,'Addr: ','');
  11.   DBF^.GetXY(10,12,3,'City: ','');
  12.   DBF^.GetXY(32,12,4,'State: ','@!');
  13.   DBF^.GetXY(43,12,5,'Zip: ','@9');
  14.   readget;
  15.  
  16.   Gotoxy(1,15);
  17.   DBF^.List;
  18.   CloseDB(DBF);
  19.   writeln;
  20.   pause;
  21. end.